home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 4 / developer source - volume 4.iso / parad / may94 / ksfig13b.gif < prev    next >
Graphics Interchange Format  |  1996-07-02  |  35.1 KB  |  484x474  |  4-bit (14 colors)
   ocr: DE SUNMS-ExecuteQutyo@utonzpushBution nethod pushButton(uar eventinfo Event) var strCity, strstate, strCountry String tb1, tb2 Table qy Query endvar strCity UserCity.value strstate Userstate.value strCountry - usercountry.value qy = Query ANSWER: PRIVEANSWER.DB CUSTUMER.DB I Custoner No I City State/Prov I Country CheckPlus "strcity I "strstate "strCountry I endquery ifn not qy.executedBE0) then nsg5top("Error" "Cannot construct query expression") return endif tb1.attach(sunny.tablename) tD2.attach(":priv:answer.db") tb1.empty() tD2.add(tb1,Irue,False) sunny.hone() sunny.edit() sunny.moveto0) ...